home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / user.tcl.z / user.tcl
Text File  |  2002-07-08  |  2KB  |  57 lines
  1. # user.tcl
  2. #
  3. # User hooks.
  4. #
  5. # Copyright (c) 1993 Xerox Corporation.
  6. # Use and copying of this software and preparation of derivative works based
  7. # upon this software are permitted. Any distribution of this software or
  8. # derivative works must comply with all applicable United States export
  9. # control laws. This software is made available AS IS, and Xerox Corporation
  10. # makes no warranty about the software, its performance or its conformity to
  11. # any specification.
  12.  
  13. proc User_Init {} {
  14.     # The main routine calls User_Init early on, after only
  15.     # Mh_Init, Preferences_Init, and ExmhLogInit (for Exmh_Debug)
  16.  
  17.     if {0} {
  18.     # Arrange to have some folders labels displayed as icons, not text
  19.     global folderInfo
  20.     set folderInfo(bitmap,exmh) @/tilde/welch/bitmaps/exmh
  21.     }
  22.     return
  23. }
  24.  
  25. proc User_Layout {} {
  26.     # This is called just after Exwin_Layout that creates the main 
  27.     # widget tree.  Here you could wedge in more buttons, or override
  28.     # some of their behavior.  Look at exwin.tcl and buttons.tcl to
  29.     # find what elements of the exwin() array and the buttons() array
  30.     # are used to store widget pathnames.
  31.     if {0} {
  32.     global buttons
  33.     set incButton $buttons(folderF).inc
  34.     $incButton configure -command UserInc
  35.     }
  36. }
  37.  
  38. proc UserInc {} {
  39.     #
  40.     # The default Inc procedure only calls Inc_Inbox.
  41.     # The following configuration does an Flist call that
  42.     # hunts around for new messages in all folders, which
  43.     # is useful if an external agent is delivering mail to
  44.     # some folders (like newsgroups)
  45.     #
  46.     Inc_Inbox
  47.     Flist_FindUnseen
  48. }
  49.  
  50. proc User_Bindings { w } {
  51.     #
  52.     # This is called from Bindings_Main to bind acceleration keystrokes
  53.     # to the message display and folder table-of-contents windows
  54.     # w is a text widget
  55. }
  56.  
  57.